home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagn_r.zip / PARSING.SWG / 0007_Command Paramaters.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  754b  |  35 lines
  1. {
  2.   Coded By Frank Diacheysn Of Gemini Software
  3.  
  4.   FUNCTION PARAMETERS
  5.  
  6.   Input......: None
  7.              :
  8.              :
  9.              :
  10.              :
  11.  
  12.   Output.....: Command Line Used To Execute The Current Program
  13.              :
  14.              :
  15.              :
  16.              :
  17.  
  18.   Example....: IF POS('/F',PARAMETERS) THEN
  19.              :   WriteLn('/Full Option Enabled.')
  20.              : ELSE
  21.              :   WriteLn('/Full Option Disabled.');
  22.              :
  23.  
  24.   Description: Function To Return The Entire Command Line That Was Used To
  25.              : Execute The Current Program
  26.              :
  27.              :
  28.              :
  29.  
  30. }
  31. FUNCTION PARAMETERS : STRING;
  32. BEGIN
  33.   PARAMETERS := STRING( PTR( PREFIXSEG, $0080 )^ );
  34. END;
  35.